home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 August / macformat-053.iso / mac / Demos / Acacia Educational Multimedia / Revise Demo / Revise Demo.dxr / 00001.ls next >
Encoding:
Text File  |  1997-04-17  |  902 b   |  27 lines
  1. global gCD_Root, gDelim, gPath, gSoundLevel
  2.  
  3. on startMovie
  4.   set the exitLock to 1
  5.   set gSoundLevel to 5
  6.   set the soundLevel to gSoundLevel
  7.   DoMacStuff()
  8.   if not (the quickTimePresent) then
  9.     alert("This demo needs QuickTime to run." & RETURN & "Install it by copying the files in" & RETURN & "the 'Ext' folder to your system" & RETURN & "folder, then try again.")
  10.     halt()
  11.   end if
  12.   if the colorDepth < 8 then
  13.     alert("You must have at least 8-bit colour" & RETURN & "to run this product. Please reset your" & RETURN & "monitor to this level and try again")
  14.     halt()
  15.   end if
  16.   if the colorDepth < 16 then
  17.     alert("We recommend that you run this demo" & RETURN & "with your monitor set to thousands " & RETURN & "of colours for top video quality")
  18.   end if
  19.   go(1, gPath & "starter")
  20. end
  21.  
  22. on DoMacStuff
  23.   set gDelim to ":"
  24.   set gPath to the pathName
  25.   set gCD_Root to the pathName
  26. end
  27.